#open(BUFF,"gunzip -c /data2/bsi/tertiary/Thibodeau_Stephen_snt01/exome/110915_SN316_0178_BC06G8ACXX/variants/SNV/s_090-013.chr22.snvs.raw.snvmix.gz |");
#open(WRBUFF,">temp.bed");
$infile = $ARGV[0];
$outfile = $ARGV[1];
chomp($infile);
chomp($outfile);
open(BUFF,"gunzip -c $infile |") or die "unable to open the infile\n";
open(WRBUFF,">$outfile") or die "not able to write $outfile\n";
while(<BUFF>)
{
	chomp($_);
	@a =split(":|\t",$_);
	$val = $a[1]-1;
	print WRBUFF $a[0]."\t".$val."\t".$a[1]."\t".$_."\n";
}
